﻿Imports LRS.DTO
Imports LRS.BLL
Imports System.Windows.Forms

Public Class AdminLogin

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Dim emp As eEmployee = New eEmployee()
        emp.FirstName = "Admin"
        emp.LastName = "Admin"
        emp.Address = "Admin"
        emp.Phone = "0000"
        emp.Email = "000"
        emp.DateOfBirth = DateTime.Now
        emp.Gender = True
        emp.Password = txtPassword.Text
        emp.Type = "Admin"
        emp.OtherInfo = "Nothing"

        Dim username As String = bEmployee.InsertAdmin(emp)
        MessageBox.Show("Vui lòng ghi nhớ tên đăng nhập: " + username)
        Me.Close()
    End Sub
End Class